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' 
DEFINITION FILE FOR FCP COMPILATION 
; Version: *v04-000' 


PSOE REAR A ERE AAE AEE AEE EEE AEEA EERE EAA ee eee ee eee eee 


. * 
ie COPYRIGHT (c) 1978, 1980, 1982, 1984 BY ‘ 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. > 
'e ALL RIGHTS RESERVED. : 
it THIS SOF TWARE Is FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
ie ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
ie INCLUSION OF THe ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
ie COPIES THEREOF MAY Nor BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
ie OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY ®* 
is TRANSFERRED. ° 
ie THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
ie SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
ie CORPORAT LOW. e 
ie DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
is SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. . 
ph EE ARNE TIM te OE ROD OL ICON IE DT he MEA A EATON 


e+ 

' 

FACILITY: FIIACP Structure Level 1 
i ABSTRACT: 


These are the data stucture definitions and random macros 
used to compile FCP. 


i ENVIRONMENT : 


STARLET a he system, including privileged system calls 
and internal system subroutines. 


AUTHOR: Andrew C. Goldstein, CREATION DATE: 9-Dec-1976 10:53 
i MODIFIED BY: 


v03-003 $TJ3109 Steven T. Jeffrey 24-Jun-1983 
Make reference to USER_STATUS sonerel to fix truncation error. 
v03-002 ACGOS34 Andrew C. Goldstein 6-May-1983 14:21 


ix consistency in declaration of uSER_ STATU 


ee en ee 
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v03-001 Lavon? Pilant, 31-Mar-1982 11:50 
Add CLF _INCOMPLETE oo indicate’ that the window segment 
is not Complete. 


v02-002 LMP0003 L. Mark Pilant, 15-Jan-1982 
Add CLF_REMAP to remap cathedral window 


v02-001 ACGO0245 Andrew C. Goldstein, 18-Dec-1981 18:25 
Clean up handling of implicitly spooled files 


v02-000 ACG0167 Andrew C. Goldstein, 7-May-1980 18:50 
Previous revision history moved to F11A.REV 


2 
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' 
} Declare PSECT usage to minimize page breakage. 
PSECT 
OWN = $LOCKEDD1S, 
GLOBAL = pee et 
PLIT = S$CODES (EXECUTE); 
! Declare VAX built in functions. 


BUILTIN 


‘ 
' Structure declarations used for system defined structures to 
: save typing. 


STRUCTURE 

BBLOCK (0, P, S, E; NJ = 

(BBLOCK+0)<P,$,E>, 
een > * tae CI, 0, P, S, E; N, BS) = 
* 
( (BBLOCKVECTOR+1 *BS)+0)<P,S,E>; 
Assorted macros used in FCP code 
MACRO 
' set processor IPL 

SET_IPL (LEVEL) = MTPR (ZREF (LEVEL), PRS_IPL)2; 

Declare code that must be locked into the working set. 


MACRO 
LOCK_CODE = 
PSECT CODE = $LOCKEDC1$, 
PLIT = $LOCKEDC1$. 
OWN = $LOCKEDD1S. 
GLOBAL = SLOCKEDD1S; 


eeeee Note: The following two macros violate the Bliss benquage definition 
seeee in that they make use of the value of SP while building the arg List. 
eeeee Jt is the opinion of the Bliss maintainers that this usage is safe 


i Macro 
: Macro 


MACRO 


' Macro 
} Macro 


MACRO 


' 
: Macro 


MACRO 


! 
: Macro 


MACRO 


MACRO 


H 
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from planned future optimizations. 


to call the change mode to kernel system service. 
call format is ‘KERNEL_CALL (ROUTINE, ARG], ARG2, ... )"’. 


KERNEL CALL (R) = 
BEGIN 


EXTERNAL ROUTINE SYSSCMKRNL : ADDRESSING_MODE (ABSOLUTE); 
SYSSCMKRNL (R, .SP, ZLENGTH=1 
oad tif ZLENGTH GTR 1 ZTHEN , REMAINING %F1) 


to call the change mode to exec system service. 

call format is “EXEC_CALL (ROUTINE, ARG1, ARG2, ... )". 

meee 1 (R) = 
EXTERNAL ROUTINE SYSSCMEXEC : ADDRESSING_MODE (ABSOLUTE); 
BUILTIN SP 


SYSSCMEXEC (R, .SP, X%LENGTH=1 
oe ZiF XLENGTH GTR 1 ZTHEN ,%REMAINING %F1) 


used to signal fatal errors (internal consistency checks). 


BUG_CHECK (CODE, TYPE, MESSAGE) = 
BEGIN 


BUILTIN BUGW; 
EXTERNAL LITERAL ZNAME('BUGS$_',CODE); 
BUGM (ZNAME ("BUGS_', CODE) OR™4) 


to signal an error status and continue. 


ERR_STATUS CCODE) = 
BEGIN 


XIF NOT ZDECLARED (USER_STATUS) 
XTHEN EXTERNAL USER STATUS : WORD ADDRESSING_MODE (GENERAL) 
ZELSE MAP USER_STATOS : WORD 


FI; 
IF .USER_STATUS 
wes USER_STATUS = CODE; 


' 
! Macro to signal an error status and exit. 
: Implemented as a change mode to user instruction followed by a RET. 


) ez 
F (ZIF ZNULL (CODE) ZTHEN O ZELSE CODE 2%F1)); 


& 


4 
RS 


MACRO 
! 


: call. 
MACRO 


LITERAL 


LITERAL 


LITERAL 
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oo (BUILTIN RO; .RO)) 


DESCRIPTOR (STRING) = 
UPLIT (ZCHARCOUNT (STRING), UPLIT BYTE (STRING) )%; 


i Macro to return the number of actual parameters supplied to a routine 


ACTUALCOUNT = 
BEGIN 


REMOVE _BADBLOCK 

ENTER_READERR 

ENTER “WRITERR 
File ID's that are known constants 


LITERAL 
INDE 


nhunnnnnnnn 
DWONOUS WH 
se ee eee 


bad b 


i Type codes used to identif 
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Macro to generate a string with a descriptor. 


Mode codes for the bad block log file scan routine 


remove log entry 
log read error 
log write error 


index file 


storage map file 
bad block file 
MFD 


core image fil 
volume set Lis 
continuation f 
poche journal 

ock log 


highest UIC group of system UIC's 
file access modes 


blocks being read by READ_BLOCK. 
: Note that READ_BLOCK contains a table indexed by these codes. 
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HEADER_TYPE = 9. ! file header 

BITMAP TY = 1, ! syorage bitmap 
DIRECTORY_TYPE = ¢° ! directory block 
INDEX_TYPE ° 3, ! other index file blocks 
DATA_TYPE = 4; ! random data blocks 


! 
: "We codes used to identify blocks of memory requested from the 
' allocator. Note that these codes index into a table in ALLOCATE. 


LITERAL 
FCB_TYPE = 0, ! file control block 
WCB_TYPE = 1, ! window block 
; VCB_TYPE = 2; ! volume control block 
Index codes for the subfunctions in the performance measurement data base. 
LITERAL 
PMS_F IND = 6, ! directory searches 
PMS _ENTER = 7, ! directory entries : 
S_ALLOC = 8, ! storage map allocation and deallocati~n 
PMS_RWATT = 9; ! read/write attributes 
Random constants. 
LITERAL 
= 1, ' event he for 1/0 
TIMER_EFN = ¢° ' EFN for timers 
MAILBOX _EFN = 3, ! EFN for mailbox 1/0 4 
MIN_WINDOW = 1 ! minimum file window size (in pointers) 
MAX _WINDOW = 86; ! maximum file window size 
Modes to call TRUNCATE routine. 
LITERAL 
ERASE POINTERS = 1, ! erase retrieval pointers removed 
DEALLOC_BLOCKS = 1; ! deallocate the blocks 


Normal termination cleanup flags 


LITERAL 
CLF _FIXFCB = 1, ! update FCB from header 
F __DOSPOOL = 2, ! send file to erick queue 
_INVWIND = 4, ! invalidate all windows 
CLF_LSUPERSEDE = 3. ! supersede old file . 
F_SPOOLFILE = 7, ! operation is on spool file 
CLF_SYSPRV = 8, ' caller is privileged 
CLF_CLEANUP =9 ! cleanup is in progress 
CLF_INCOMPLETE = 16, ! window is not complete 
Error termination cleanup flags 
m = 16, ! deaccess @ 
CLF _DEACCESS 1 id file | 
CLF_ZCHANNEL = 17, ' clean out user's channel 
CLF_TRUNCATE = 18, ' undo extend operation 
CLF_CLEANTRUNC = 19, ! cleanup after bombed truncate 


po 


. 
nn 
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LF ADELE ID = 20, ! delete file ID 
CLF _DELFILE = di, ! delete complete file 

CLF _REMOVE = ¢° ' remove directory entry 

CLF _REENTER = 25, ! put firectery entry back 

CLF_DELWINDOW = 26, ! deallocate window 

CLF_DELEXTFID = 28, ! delete extension header 

CLF _REMAP = 29; ! do an explicit remap of the file 


i Cleanup actions that modify the disk, and are to be turned off in case 
; of a write error. 


LITERAL 
' supersede old file 


R 1*CLF_TRUNCATE ! undo extend operation 
OR 1*CLF_CLEANTRUNC ! cleanup after bombed truncate 
OR 1* LFI ! delete file ID 


! delete complete file 


o 
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o 
| ae 
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OR 1“°CLF_REMOVE ! remove directory entry 
OR 1“°CLF_REENTER ! put directory entry back 
OR 1*CLF_DELEXTFID; ! delete extension header 
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